Ploty Package - An Introduction

help(package = "plotly") # This gives a list of functions. Delete before presenting. . . Maybe the different graph types can be listed. The key point is to show the flexibility of the package and how it can be used on a variety of graph types.

library(plotly)
library(tidyverse)
library(here)
library(readr)
library(maps)
library(dplyr)
library(ggplot2)
library(lubridate)
library(purrr) #Used to  create the animation frames
library(rmdformats)

# Load the diamonds dataset from the ggplot package
data("diamonds")

# Load Data #
CherryTree_Data_ <- read_csv(here("Data/CherryTree Data .csv"))

CherryTree <- as.matrix(CherryTree_Data_) # change the data set to a numeric matrix 

fig <- plot_ly(z = ~CherryTree) # plot by numeric matrix 
fig<- fig %>% add_surface() 


fig 

# Create a plotly scatter plot with x = carat, y = price, and color = cut

diamond <- diamonds %>% # Select the df
        plot_ly( x = ~carat, 
                 y = ~price, 
                    color = ~cut, 
                    type = "scatter",
                    mode = "markers") %>%
  layout(title = "Diamond Prices by Carat and Cut")

diamond #Show plot

data("economics")

econ <- economics %>%
  mutate(cumulative_pop = cumsum(pop))

# Create a filled area plot with an animation frame
econ %>%
  plot_ly(x = ~date, 
          y = ~cumulative_pop, 
          fill = ~pop,
          type = "scatter", 
          mode = "none",
          stackgroup = "one",
          animation_frame = ~year(date)) %>%
    add_trace(y = ~0, 
              hoverinfo = "skip", 
              showlegend = FALSE) %>%
    layout(title = "US Population Over Time",
           xaxis = list(title = "Date"),
           yaxis = list(title = "Cumulative Population")) %>%
    colorbar(title = "Population", len = 0.5, y = 0.8, ypad = 0)

df <- read_csv(here("Data/dataset-47806.csv"))
View(df)

chemicaldata <- read_csv(here("Data/chemicaldata.csv"))

# Create a scatter mapbox plot with the latitude and longitude data
fig <- plot_ly(chemicaldata, type = "scattermapbox",
                             mode = "markers", 
                             marker = list(size = 10, 
                                           color = "red"), 
                                           lon = ~Long, lat = ~Lat)

# Set the map layout
fig <- fig %>% layout(mapbox = list(center = list(lon = -157.763, 
                                                  lat = 21.274),
                                                  zoom = 15, 
                                                  style = "open-street-map"))


fig # Show the map

# Create a plotly scatter plot
fig <- plot_ly(data = iris, x = ~Sepal.Length, 
                            y = ~Sepal.Width, 
                            type = "scatter",
                            mode = "markers")

# Add a background image to the plot
fig <- fig %>% add_image(
  source = system.file("png", "iris_image", package="grDevices"), # This is not working
  x = 4.5,
  sizex = 2,
  y = 3,
  sizey = 2,
  xanchor = "right",
  yanchor = "bottom"
)

# Display the plot
fig

data("msleep")

# Create bar plot
sleep_bar <-msleep %>%
             plot_ly(x = ~order, 
                     y = ~sleep_rem,
                     type = "bar", 
                     name = "REM Sleep")

# Add layout information
sleep_bar <- sleep_bar %>% 
  layout(title = "Average REM Sleep by Order", 
         xaxis = list(title = "Animal Order"), 
         yaxis = list(title = "REM Sleep (hours)"))

# Show plot
sleep_bar